﻿Public Class persona
    'esta es la clase padre de mi programa
    Private rut As String
    Private nombre As String
    Private sexo As String

    Sub New(ByVal rut As String, ByVal nombre As String, ByVal sexo As String)
        Me.rut = rut
        Me.nombre = nombre
        Me.sexo = sexo
    End Sub

    Sub New()

    End Sub

    Sub modificar(ByVal rut As String, ByVal nombre As String, ByVal sexo As String)
        Me.rut = rut
        Me.nombre = nombre
        Me.sexo = sexo
    End Sub

    Public Function detalle() As String
        Return rut & " " & nombre & " " & sexo
    End Function

    Public Function getrut() As String
        Return rut
    End Function

    Public Function getnombre() As String
        Return nombre
    End Function

    Public Function getsexo() As String
        Return sexo
    End Function
End Class
